home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / ovr50711.lha / Over5 / boot.asc next >
Text File  |  1996-05-12  |  391b  |  15 lines
  1. bList 0.38  Copyright (c) 1995 Daniel Kahlin.
  2. file: 'boot'  239 bytes, 1 blocks
  3.  
  4. 100 OPEN2,2,3,CHR$(5)+CHR$(0)
  5. 110 PRINT"WAITING..."
  6. 120 GET#2,A$:IF A$<>"S" THEN120
  7. 130 GET#2,A$:IF A$="S" OR A$="" THEN130
  8. 140 FOR I=6000 TO 6511
  9. 150 GET#2,A$:IF A$="" THEN150
  10. 160 A=ASC(A$):C=(C+A)AND255
  11. 170 POKE I,A:PRINT"#";
  12. 180 NEXT
  13. 190 IF C<>0 THENPRINT:PRINT"?CHK ERROR":CLOSE 2:END
  14. 200 CLOSE 2:SYS 6000
  15.